home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Mchild1.cpp < prev    next >
C/C++ Source or Header  |  1999-01-29  |  3KB  |  84 lines
  1. //---------------------------------------------------------------------
  2. // Funktioniert nur, wenn Movie-Komponente in Palette installiert ist!
  3. // Sonst mu▀ TImage-Objekt benutzt werden!
  4. //---------------------------------------------------------------------
  5. #include <vcl.h>
  6. #pragma hdrstop
  7.  
  8. #include "Mchild1.h"
  9. //---------------------------------------------------------------------
  10. #pragma link "movie2"
  11. #pragma link "Grids"
  12. #pragma resource "*.dfm"
  13. //--------------------------------------------------------------------- 
  14. __fastcall TMDIChild::TMDIChild(TComponent *Owner)
  15.     : TForm(Owner)
  16. {
  17. }
  18. //---------------------------------------------------------------------------
  19. void __fastcall TMDIChild::GetTable (String DateiName)
  20. {
  21.   int Anzahl, Zeilen, Spalten;
  22.  
  23.   // Textfeld und Bildfeld verbergen, Tabellenfeld zeigen
  24.   RichEdit1->Hide ();
  25.   Movie1->Hide ();
  26.   StringGrid1->Show ();
  27.  
  28.   // Stringliste erzeugen
  29.   TStringList *Tabelle;
  30.   Tabelle = new TStringList;
  31.  
  32.   // Tabelleninhalt laden
  33.   Tabelle->LoadFromFile (DateiName);
  34.   Anzahl = Tabelle->Count;
  35.  
  36.   // Anzahl der Zeilen/Spalten ermitteln
  37.   Zeilen  = StrToInt (Tabelle->Strings[Anzahl-2]);
  38.   Spalten = StrToInt (Tabelle->Strings[Anzahl-1]);
  39.   StringGrid1->RowCount = Zeilen;
  40.   StringGrid1->ColCount = Spalten;
  41.  
  42.   // Zeilen-spaltenweise aus Tabelle in Stringgitter einlesen
  43.   for (int i=0; i<Zeilen; i++)
  44.   for (int j=0; j<Spalten; j++)
  45.   {
  46.     StringGrid1->Cells[j][i] = Tabelle->Strings[i*Spalten+j];
  47.   }
  48. }
  49. //---------------------------------------------------------------------
  50. void __fastcall TMDIChild::GetImage (String DateiName)
  51. {
  52.   // Textfeld und Tabellenfeld verbergen, Bildfeld zeigen
  53.   RichEdit1->Hide ();
  54.   StringGrid1->Hide ();
  55.   Movie1->Show ();
  56.   Movie1->Picture->LoadFromFile (DateiName);
  57. }
  58. //---------------------------------------------------------------------
  59. void __fastcall TMDIChild::GetText (String DateiName)
  60. {
  61.   // Bildfeld und Tabellenfeld verbergen, Textfeld zeigen
  62.   StringGrid1->Hide ();
  63.   Movie1->Hide ();
  64.   RichEdit1->Show ();
  65.   RichEdit1->Lines->LoadFromFile (DateiName);
  66. }
  67. //---------------------------------------------------------------------
  68. void __fastcall TMDIChild::FormClose(TObject *Sender, TCloseAction &Action)
  69. {
  70.     Action = caFree;
  71. }
  72. //---------------------------------------------------------------------
  73. void __fastcall TMDIChild::FormCreate(TObject *Sender)
  74. {
  75.   RichEdit1->Align = alClient;
  76.   RichEdit1->ScrollBars = ssBoth;
  77.   Movie1->Align = alClient;
  78.   Movie1->Center = true;
  79.   // Movie1->Stretch = true;
  80.   StringGrid1->Align = alClient;
  81.   StringGrid1->Options << goEditing; // << goColSizing << goColMoving;
  82. }
  83. //---------------------------------------------------------------------------
  84.